Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.Address & "QHƹkIFC"
End Sub
